home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / U-Utilities / (c)u1.d64 / screen.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  452b  |  30 lines
  1. 10 J=0
  2. 20 JJ=56320+J
  3. 30 O$=CHR$(113)
  4. 40 PRINT CHR$(147)
  5. 50 XMAX=39
  6. 60 YMAX=23
  7. 70 X=INT(XMAX/2)
  8. 80 Y=INT(YMAX/2)
  9. 90 OLD=1024+40*Y+X
  10. 100 INDX=OLD
  11. 110 POKE INDX,VAL(O$)
  12. 120 JS=PEEK(JJ)
  13. 130 IF (JS AND 8)=8 THEN GOTO 140
  14. 134 X=X+1
  15. 137 IF X>XMAX THEN X=0
  16. 140 IF (JS AND 4)=4 THEN GOTO 150
  17. 144 X=X-1
  18. 147 IF X<0 THEN X=XMAX
  19. 150 IF (JS AND 2)=2 THEN GOTO 160
  20. 154 Y=Y+1
  21. 157 IF Y>YMAX THEN Y=0
  22. 160 IF (JS AND 1)=1 THEN GOTO 170
  23. 164 Y=Y-1
  24. 167 IF Y<0 THEN Y=YMAX
  25. 170 INDX=1024+40*Y+X
  26. 180 POKE OLD,32
  27. 190 OLD=INDX
  28. 200 GOTO 110
  29. 210 END
  30.